(*Coordinate Planes*)

Show[ParametricPlot3D[{{0,x,y},{x,0,y},{x,y,0}},{x,-1,4},{y,-1,4},Mesh->None,AxesOrigin->{0,0,0}],Graphics3D[{Thickness[0.0075],Black,
Arrow[{{0,0,0},{4,0,0}}],Text[Style["x ",36],{4.2,0,0}],
Arrow[{{0,0,0},{0,4,0}}],Text[Style["y ",36],{0,4.2,0}],
Arrow[{{0,0,0},{0,0,4}}],Text[Style["z ",36],{0,0,4.2}]
}],BoxRatios->{1,1,1}]

(*Examples of Planes*)

Show[ParametricPlot3D[{2,y,z},{y,-3,3},{z,-3,3},Mesh->None,BoxRatios->{1,1,1},AxesOrigin->{0,0,0}],Graphics3D[{Thickness[0.0075],Black,
Arrow[{{0,0,0},{4,0,0}}],Text[Style["x ",36],{4.2,0,0}],
Arrow[{{0,0,0},{0,3,0}}],Text[Style["y ",36],{0,3.2,0}],
Arrow[{{0,0,0},{0,0,3}}],Text[Style["z ",36],{0,0,3.2}]
}]]

Show[ParametricPlot3D[{x,y,3},{x,-3,3},{y,-3,3},Mesh->None,AxesOrigin->{0,0,0}],Graphics3D[{Thickness[0.0075],Black,
Arrow[{{0,0,0},{3,0,0}}],Text[Style["x ",36],{3.2,0,0}],
Arrow[{{0,0,0},{0,3,0}}],Text[Style["y ",36],{0,3.2,0}],
Arrow[{{0,0,0},{0,0,6}}],Text[Style["z ",36],{0,0,6.2}]
}],BoxRatios->{1,1,1}]

(*Parabolic Cylinder*)

Show[ParametricPlot3D[{x,x^2,z},{x,-2,2},{z,-3,3},Mesh->None,AxesOrigin->{0,0,0}],Graphics3D[{Thickness[0.0075],Black,
Arrow[{{0,0,0},{3.5,0,0}}],Text[Style["x ",36],{3.7,0,0}],
Arrow[{{0,0,0},{0,3.5,0}}],Text[Style["y ",36],{0,3.7,0}],
Arrow[{{0,0,0},{0,0,3.5}}],Text[Style["z ",36],{0,0,3.7}]
}],BoxRatios->{1,1,1},PlotRangePadding->1]

(*Cylinder*)

Show[ParametricPlot3D[{3*Cos[Theta],3*Sin[Theta],z},{Theta,0,2*Pi},{z,-3,3},Mesh->None,AxesOrigin->{0,0,0}],Graphics3D[{Thickness[0.0075],Black,
Arrow[{{0,0,0},{3.5,0,0}}],Text[Style["x ",36],{3.7,0,0}],
Arrow[{{0,0,0},{0,3.5,0}}],Text[Style["y ",36],{0,3.7,0}],
Arrow[{{0,0,0},{0,0,3.5}}],Text[Style["z ",36],{0,0,3.7}]
}],BoxRatios->{1,1,1},PlotRangePadding->1]

(*Region bounded by plane, cylinder, and sphere, with z≥0*)

Show[ContourPlot3D[{x^2+y^2+z^2==4,x^2+y^2==1},{x,-3,3},{y,-3,3},{z,-(Sqrt[3]),(Sqrt[3])},BoundaryStyle->Red,Mesh->None,BoxRatios->Automatic,AxesOrigin->{0,0,0}],
Graphics3D[{Thickness[0.0075],Black,
Arrow[{{0,0,0},{2.5,0,0}}],Text[Style["x ",36],{2.7,0,0}],
Arrow[{{0,0,0},{0,2.5,0}}],Text[Style["y ",36],{0,2.7,0}],
Arrow[{{0,0,0},{0,0,1.7}}],Text[Style["z ",36],{0,0,2}]
}]]